home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / artience / xxxpert / credit.r < prev    next >
Text File  |  1987-08-24  |  1KB  |  20 lines
  1. CREDIT                                                                
  2. IF ITEM EQ 100 THEN CREDIT EQ OK                                      
  3. IF BALANCE GT 10000 THEN CREDIT EQ SEE,MGR                            
  4. IF BALANCE LE 5000 AND MAXDELAY GT 90 THEN INTA EQ CT                 
  5. IF INTA EQ CT AND CUSTCLASS EQ LOCALGOVT THEN INTB EQ LG              
  6. IF INTB EQ LG AND MAXDELAY LE 120 THEN CREDIT EQ OK                   
  7. IF INTB EQ LG AND MAXDELAY GT 120 THEN CREDIT EQ REJECT               
  8. IF BALANCE GT 5000 AND MAXDELAY GT 45 THEN INTA EQ A                  
  9. IF INTA EQ A AND ORDERAMT LE 100 THEN INTB EQ JUDGE                   
  10. IF INTA EQ A AND ORDERAMT GT 100 THEN CREDIT EQ SEE.MGR               
  11. IF BALANCE GT 5000 AND MAXDELAY LE 45 THEN INTA EQ B                  
  12. IF INTA EQ B AND ORDERAMT GT 500 THEN CREDIT EQ SEE,MGR               
  13. IF INTA EQ B AND ORDERAMT LE 500 THEN CREDIT EQ OK                    
  14. IF BALANCE LE 5000 AND MAXDELAY LE 45 THEN CREDIT EQ OK               
  15. IF BALANCE LE 5000 AND MAXDELAY GT 45 THEN INTA EQ C                  
  16. IF INTA EQ C AND ORDERAMT GT 2000 THEN CREDIT EQ JUDGE                
  17. IF INTA EQ C AND ORDERAMT LE 2000 THEN CREDIT EQ OK                   
  18. IF INTB EQ JUDGE AND RELATIONSHIP EQ GOOD THEN CREDIT EQ OK           
  19. IF INTB EQ JUDGE AND RELATIONSHIP EQ BAD THEN CREDIT EQ REJECT        
  20.